with Pgcd;
function Pgcd (A,B : Natural) return Natural is
begin
   if B = 0 then
      return A;
   else
      return Pgcd(B, A rem B);
   end if;


end Pgcd;
